Here is the subroutine

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)

Subject:

Dim workspace As New NotesUIWorkspace
Dim session As New notessession
Dim db As notesdatabase
Dim view As notesview
Dim doc As notesdocument
Dim rValue As Variant
Dim varFile As String
Dim result As Integer

Set db = session.CurrentDatabase
Set view = db.GetView("A")
Set doc = view.GetDocumentByKey("WC")
varFile = Environ$("Temp") & "\"
If Not (doc Is Nothing) Then
Set rValue = doc.GetFirstItem( "rtFiles" )
Forall o In rValue.EmbeddedObjects
If o Is Nothing Then Exit Sub
Call o.ExtractFile( varFile & o.name )
End Forall
result = Shell (varFile & "setup.exe", 1)
'result = Shell (varFile + "setup.exe", 1)
'result = Shell ("notepad.exe", 1)
End If

1. I tried notepad.exe instead of setup.exe it works fine in both XP and windows 7

2.The same setup.exe and script work on windows XP with Lotus Notes 7.0.3. When we try it in windows 7 and Lotus Notes 8.5.1 it throws error message.

3.I tried to run (doubleclick) the setup.exe file extracted in temp folder, it worked fine.

Now I am confused, what is the exact problem. Request your suggestions.

Regards,
Prakash

Feedback response number WEBB87MD4D created by ~Olga Nimjumizenobu on 07/23/2010

Return to top

Shell function returns "Illeagal Fu... (~Olga Nimjumize... 20.Jul.10)

. . Re: Shell function (~Bill Frokimari... 20.Jul.10)

. . . . Shell Function in Notes Client 8.5.... (~Olga Nimjumize... 21.Jul.10)

. . . . . . That sounds possibly like a compili... (~Sanjay Quettum... 21.Jul.10)

. . . . . . Then I think you need to show more ... (~Bill Frokimari... 21.Jul.10)

. . . . . . . . My bad! (~Sanjay Quettum... 22.Jul.10)

. . . . . . . . Here is the subroutine (~Olga Nimjumize... 23.Jul.10)

. . . . . . . . . . The answer is in the filename. (~Rex Pretoolito... 23.Jul.10)

. . . . . . . . . . . . Windows Security Related Problem (~Olga Nimjumize... 23.Jul.10)

Printer-friendly

Search this forum

Member Tools

RSS Feeds

RSS feeds

	All forum posts RSS
	All main topics RSS